<?xml version="1.0" encoding="ISO-8859-1"?>
<xsl:stylesheet version="1.0" xmlns:xsl="http://www.w3.org/1999/XSL/Transform">
<xsl:output method="text"/>
  
<xsl:template match="/DataBaseTable">
Namespace <xsl:value-of select="ClassNamespace"/>
    Public Class <xsl:value-of select="TableName"/>_PL
	Inherits PLBase

		Public Sub New()
			MyBase.New()
		End Sub
	
		Public Sub New(ByVal queryName As String)
			MyBase.New(queryName)
		End Sub
	
		Sub OnRowUpdating(ByVal sender As Object, ByVal e As SqlRowUpdatingEventArgs) Handles MetaDataTable.OnRowUpdating
	
		End Sub

		Public Overrides Function Delete() As Boolean
		   'Throw New NotImplementedException("Delete To Come...")
		   Return False
		End Function

		Public Overrides Function Validate() As Boolean
		   'Throw New NotImplementedException("Validate To Come...")
		   Return True
		End Function
	End Class
	End Namespace
</xsl:template>
</xsl:stylesheet>